home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / doordr50.zip / UNITINTR.ARJ / DDSCOTT.INT < prev    next >
Text File  |  1992-02-02  |  2KB  |  53 lines
  1. unit ddscott;
  2.  
  3. interface
  4. uses dos,crt;
  5. type
  6.  adaptertype= (MDA,CGA,EGAMono,EGAColor);
  7.  datetype=string[6];
  8.  screentype= array[1..4000] of byte;
  9.  screenptr=^screentype;
  10. var
  11.  screen: screenptr;
  12.  x,y: integer;
  13.  ch: char;
  14.  DOS_Major,DOS_Minor : Word;
  15.  hexon: boolean;
  16.  
  17. function va(n: integer): string;
  18. function wva(n: word): string;
  19. function lva(n: longint): string;
  20. function rva(n: real): string;
  21. function stu(s: string): string;
  22. function locase(c: char): char;
  23. function stl(s: string): string;
  24. function namestr(s: string): string;
  25. function exist(file_name: string): boolean;
  26. procedure delete_file(fn: string);
  27. procedure setmode(modenumber: byte);
  28. procedure set43lines;
  29. procedure set25lines;
  30. function isega: boolean;
  31. function queryadaptertype: adaptertype;
  32. function determinepoints: integer;
  33. procedure cursoron;
  34. procedure cursoroff;
  35. procedure cursorblock;
  36. function screenaddress: word;
  37. procedure savescreen;
  38. procedure restorescreen;
  39. function date: datetype;
  40. function bitcheck(n: word; b: byte): boolean;
  41. procedure setbit(var n: word; b: byte);
  42. procedure resetbit(var n: word; b: byte);
  43. procedure copyfile(f1,f2: string);
  44. function GetHandle(var F : File) : Word;
  45. function DosVer(var Minor : Word) : Word;
  46. function LockFile(Handle : Word; FilePosition,FileLength : LongInt) : Word;
  47. function UnLockFile(Handle : Word; FilePosition,FileLength : LongInt) : Word;
  48. function RetryFile(Handle,Wait,Retry : Word) : Word;
  49. function hex(i: byte): string;
  50. procedure HexFilt(var s: string);
  51. procedure HexToDec(var s: string);
  52.  
  53.